home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_D.d64 / dia show_d.p. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 2 rem pdpd software 1992
  2. 4 rem dia show
  3. 5 print"[147]":poke 53280,0:poke 53281,0:poke 657,128:poke 650,255:printchr$(5)
  4. 6 printchr$(142)"":a=0
  5. 20 goto 100
  6. 22 print"[147]"
  7. 23 if m<>1 then m=1:load"show*",8,1
  8. 24 if n<>1 then n=1:load"split*",8,1
  9. 26 forb=0to13:print:next
  10. 27 sys 52480,8,a$,1
  11. 28 forb=0to500:next
  12. 30 sys 52480,8,"",0
  13. 32 sys 52912
  14. 33 forb=0to500:next
  15. 35 a=a+1:goto 50
  16. 50 printspc(30)"[158]-taste-[146]"
  17. 51 get d$:if d$="" then 51
  18. 52 sys 53103:goto 20
  19. 100 if a=0 then a$="[b]bild1"
  20. 101 if a=1 then a$="[b]bild1a"
  21. 102 if a=2 then a$="[b]bild2"
  22. 103 if a=3 then a$="[b]bild3"
  23. 104 if a=4 then a$="[b]bild3a"
  24. 105 if a=5 then a$="[b]bild4"
  25. 106 if a=6 then a$="[b]bild5"
  26. 107 if a=7 then a$="[b]bild6"
  27. 108 if a=8 then a$="[b]bild7"
  28. 109 if a=9 then a$="[b]bild8"
  29. 110 if a=10 then a$="[b]bild9"
  30. 111 if a=11 then a$="[b]bild10"
  31. 112 if a=12 then a$="[b]bild11"
  32. 113 if a=13 then a$="[b]bild12"
  33. 114 if a=14 then a$="[b]bild13"
  34. 115 if a=15 then a$="[b]bild14"
  35. 116 if a=16 then a$="[b]bild15"
  36. 117 if a=17 then a$="[b]bild16"
  37. 118 if a=18 then a$="[b]bild17"
  38. 119 if a=19 then a$="[b]bild18"
  39. 122 if a=20 then a$="[b]bild19"
  40. 123 if a=21 then a$="[b]bild20"
  41. 124 if a=22 then a$="[b]bild21"
  42. 125 if a=23 then a$="[b]bild22"
  43. 126 if a=24 then a$="[b]bild23"
  44. 130 if a>24 then a=0:goto 100
  45. 132 goto 22
  46. 302 rem credits to:
  47. 303 rem jan templin !
  48. 304 rem data house, kai-uwe dittrich
  49. 305 rem master mm soft, matthias matting
  50.